home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / med300.zip / MEINIT.CLA < prev    next >
Text File  |  1994-02-22  |  2KB  |  32 lines
  1.  
  2. !▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  3. !█                                                                       █
  4. !█ MEINIT.CLA                                                            █
  5. !█ Initialize editing parameters                                         █
  6. !█                                                                       █
  7. !█ Revision Number: 1                                                    █
  8. !█ Revision Date  : 22-Feb-94                                            █
  9. !█                                                                       █
  10. !█ Revision History                                                      █
  11. !█   1 Created                                                           █
  12. !█                                                                       █
  13. !▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  14.  
  15.              MEMBER('MEMOEDIT')
  16.  
  17. !═════════════════════════════════════════════════════════════════════════
  18. !                     Memo field initialization procedure
  19. !═════════════════════════════════════════════════════════════════════════
  20. ME_InitMemo  PROCEDURE( sBuffer )
  21.  
  22.   CODE
  23.   IF MED:ulEditBuffer                            ! If current context
  24.     ADD(qDocument, 1)                            !   Save current context
  25.   .                                              ! Endif
  26.   CLEAR(qDocument)                               ! Clear context
  27.   MED:bbAllocFlag  = 0                           ! Reset allocation flag
  28.   MED:ulEditBuffer = ADDRESS(sBuffer)            ! Set edit buffer address
  29.   MED:usMaxChars   = SIZE(sBuffer)               ! Set edit buffer size
  30.   RETURN
  31.  
  32.